home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g40.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  50 lines
  1. 100 ' G40 T.WAKAMATSU
  2. 110 CLS:N=6
  3. 120 R=239:PI=3.14159!:READ L,M,O:DATA 2,5,7
  4. 130 FOR K=0 TO 120 STEP 5
  5. 140   T1=K/180*PI
  6. 150   X=R*COS(T1)+320
  7. 160   Y=R*SIN(T1)+240
  8. 170   PSET(X,Y):L=M-L
  9. 180   FOR J=K TO K+360 STEP 60
  10. 190     T=J/180*PI
  11. 200     X=R*COS(T)+320
  12. 210     Y=R*SIN(T)+239
  13. 220     LINE-(X,Y),PSET,L
  14. 230   NEXT J
  15. 240   S=23/36*PI:T=PI/3
  16. 250   R=R/SIN(S)*SIN(T)
  17. 260 NEXT K
  18. 270 FOR D=1 TO 8400:NEXT D
  19. 280 R=239
  20. 290 FOR K=0 TO 120 STEP 5
  21. 300   T1=K/180*PI
  22. 310   X=R*COS(T1)+320
  23. 320   Y=R*SIN(T1)+240
  24. 330   PSET(X,Y)
  25. 340   FOR J=K TO K+360 STEP 60
  26. 350     T=J/180*PI
  27. 360     X=R*COS(T)+320
  28. 370     Y=R*SIN(T)+239
  29. 380     LINE-(X,Y),PSET,O
  30. 390   NEXT J
  31. 400   S=23/36*PI:T=PI/3
  32. 410   R=R/SIN(S)*SIN(T)
  33. 420 NEXT K
  34. 430 FOR D=1 TO 8400:NEXT D
  35. 440 R=239
  36. 450 FOR K=0 TO 120 STEP 5
  37. 460   T1=K/180*PI
  38. 470   X=R*COS(T1)+320
  39. 480   Y=R*SIN(T1)+240
  40. 490   PSET(X,Y)
  41. 500   FOR J=K TO K+360 STEP 60
  42. 510     T=J/180*PI
  43. 520     X=R*COS(T)+320
  44. 530     Y=R*SIN(T)+239
  45. 540     LINE-(X,Y),PSET,0
  46. 550   NEXT J
  47. 560   S=23/36*PI:T=PI/3
  48. 570   R=R/SIN(S)*SIN(T)
  49. 580 NEXT K
  50.